Typ klavesnice
Otázka od: Jiri Babka
27. 11. 2003 14:42
Zdravim!
Lze pri volani externi aplikace nastavit, jakou ma pouzivat klavesnici?
Ve Windows je napr. defaultne nastavena anglicka klavesnice, ale ja
chci, aby dana aplikace vzdy pouzivala ceskou.
Diky za radu.
Jiri Babka
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Dusek Karel
27. 11. 2003 14:23
Zkus toto: Zavolej funkci prepni_klav(Application,'Cz') a uvidis
function TForm1.zjisti_klav(Sender: TObject): String;
begin
GetLocaleInfo(LoWord(GetKeyBoardLayout(0)),Locale_SengLanguage,Kbd,2);
zjisti_klav:=Kbd;
end;
procedure TForm1.prepni_klav(Sender: TObject; Klav: String);
begin
repeat
ActivateKeyBoardLayout(HKL_NEXT,0);
until Klav=zjisti_klav(Application);
end;
S pozdravem
Karel Dusek
> -----Original Message-----
> From: Jiri Babka [mailto:jb_konf@seznam.cz]
> Sent: Thursday, November 27, 2003 1:23 PM
> To: delphi-l@clexpert.cz
> Subject: Typ klavesnice
>
>
> Zdravim!
>
> Lze pri volani externi aplikace nastavit, jakou ma pouzivat
> klavesnici? Ve Windows je napr. defaultne nastavena anglicka
> klavesnice, ale ja
> chci, aby dana aplikace vzdy pouzivala ceskou.
>
> Diky za radu.
>
> Jiri Babka
>
>
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Ludek ZITA
28. 11. 2003 0:48
----- Original Message -----
From: "Dusek Karel" <dusek@mudk.cz>
> Zkus toto: Zavolej funkci prepni_klav(Application,'Cz') a uvidis
>
>
> function TForm1.zjisti_klav(Sender: TObject): String;
> begin
> GetLocaleInfo(LoWord(GetKeyBoardLayout(0)),Locale_SengLanguage,Kbd,2);
> zjisti_klav:=Kbd;
> end;
Ahoj. Pozor, klasicky BUG.
POkud progam pustis tam kde neni klavesnice 'Cz' skonci v nekonecne smyce 
Ludek
> procedure TForm1.prepni_klav(Sender: TObject; Klav: String);
var ActualKeyb,DummyKeyb : string;
> begin
ActualKeyb := zjisti_klav(Application);
> repeat
> ActivateKeyBoardLayout(HKL_NEXT,0);
DummyKeyb :=zjisti_klav(Application)
> until (DummyKeyb=Klav) or (DummyKeyb=ActualKeyb) ;
> end;
>
> S pozdravem
> Karel Dusek
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)